home *** CD-ROM | disk | FTP | other *** search
/ Freaks Macintosh Archive / Freaks Macintosh Archive.bin / Freaks Macintosh Archives / Ham⁄GPS / Virtuoso1.4 Folder / Virtuoso 1.4 / Scripts / BBS / YY0YY v ZZ0ZZ-2⁄2 next >
Text File  |  1991-07-12  |  991b  |  30 lines
  1. ;This script will connect me to a BBS through a Net/Rom node.
  2. ;The /2 in the file name means the command key equivalent in Virtuoso
  3. ;     is command-2
  4. ;If the BBS is busy, quit execution of the script.
  5. ALERT1("Busy from YY0YY",:QUIT)
  6. ;If we get disconnected, quit execution of the script.
  7. ALERT2("*** DISCONNECTED",:QUIT)
  8. ;If the Net/Rom node fails to connect us, disconnect and quit execution.
  9. ALERT3("Failure",:DISC)
  10. ;Call the Net/Rom node.
  11. TYPE("C ZZ0ZZ-2^M")
  12. ;Wait until we are connected to the Net/Rom node.
  13. WAITFOR("CONNECTED to ZZ0ZZ-2")
  14. ;Call the BBS.
  15. TYPE("C YY0YY^M")
  16. ;Wait for Net/Rom to tell us we are connected.
  17. WAITFOR("Connected to")
  18. ;Wait for the BBS to send us the menu.
  19. WAITFOR(">")
  20. ;List traffic, mail and general messages.
  21. TYPE("lt^Mlm^Ml^M")
  22. ;Everything went OK, so don't disconnect, but instead just quit.
  23. GOTO(:QUIT)
  24. ;If Net/Rom couldn't connect to the BBS, jump to here.
  25. :DISC
  26. ;Disconnect us from the Net/Rom node.
  27. TYPE("^Cd^M")
  28. ;Label to jump to, to quit.
  29. :QUIT
  30. END.